home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / recio212.zip / rputf.c < prev    next >
C/C++ Source or Header  |  1995-01-29  |  2KB  |  69 lines
  1. /*****************************************************************************
  2.    MODULE: rputf.c
  3.   PURPOSE: recio character delimited floating point output functions
  4. COPYRIGHT: (C) 1994-1995, William Pierpoint
  5.  COMPILER: Borland C Version 3.1
  6.        OS: MSDOS Version 6.2
  7.   VERSION: 2.12
  8.   RELEASE: January 29, 1995
  9. *****************************************************************************/
  10.  
  11. #include <float.h>
  12. #include <stdio.h>
  13. #include <stdlib.h>
  14. #include <string.h>
  15.  
  16. #include "recio.h"
  17.  
  18. extern char *dtoa(double d, char *str, int dig);
  19. extern int _risready(REC *rp, int mode);
  20. extern int _rputc(REC *rp, int ch);
  21.  
  22. #define rfp(rp)          ((rp)->r_fp)
  23. #define rcol(rp)         ((rp)->r_colno)
  24. #define rfldch(rp)       ((rp)->r_fldch)
  25. #define rflags(rp)       ((rp)->r_flags)
  26.  
  27. /****************************************************************************/
  28. static void                  /* returns nothing                             */
  29.     _rputd(                  /* output floating point number to rec stream  */
  30.         REC *rp,             /* pointer to record stream                    */
  31.         int dig,             /* number of significant digits                */
  32.         double num)          /* floating point number                       */
  33. /****************************************************************************/
  34. { 
  35.     if (_risready(rp, R_WRITE)) { 
  36.         rfldno(rp)++; 
  37.         rflags(rp) &= ~_R_TXT;
  38.  
  39.         /* if not first field, put field separator if not null */
  40.         if (rfldno(rp) > 1 && rfldch(rp)) { 
  41.             if (_rputc(rp, rfldch(rp))) goto done; 
  42.         } 
  43.  
  44.         /* convert number to string */
  45.         dtoa(num, _r_nsbuf, dig); 
  46.  
  47.         /* output converted string */
  48.         if (fputs(_r_nsbuf, rfp(rp)) != EOF) { 
  49.             rcol(rp) += strlen(_r_nsbuf); 
  50.         } else { 
  51.             rseterr(rp, R_ENOPUT); 
  52.         } 
  53.     } 
  54. done: 
  55. }
  56.  
  57. /****************************************************************************/
  58. /* character delimited floating point output functions                      */
  59. /****************************************************************************/
  60. void rputf(REC *rp, float num)
  61. {
  62.     _rputd(rp, FLT_DIG, (double) num);
  63. }
  64.  
  65. void rputd(REC *rp, double num)
  66. {
  67.     _rputd(rp, DBL_DIG, num);
  68. }
  69.